Packages
Case studies
Load data
For one lemma
Comparative analyses
Usage intensity
uses <- get_uses(tweets)
uses_tot <- get_uses_tot(uses)
age = get_age(uses)
coef_var <- get_coef_var(uses)
mean_date <- get_mean_date(uses)
max_date <- get_max_date(uses)
uses_month <- conv_uses_month(uses)
uses_plt <- plt_uses(uses_month, lemma, mean_date, max_date)
uses_plt

Advanced (S-curve)
Candidates
- ghosting
- deep learning
- artificial intelligence
- co-working
- climate emergency
Degree centralization
Diachronic
df_comp %>%
filter(LEMMA ==lemma) %>%
select(SUBSET, CENT_DEGREE) %>%
mutate(SUBSET = factor(SUBSET, levels=c('first', 'mean', 'max', 'last', 'full'))) %>%
ggplot(., aes(x=SUBSET, y=CENT_DEGREE)) +
geom_point()

Comparative analyses
Processing status
Lemma list
df_comp %>%
select(LEMMA, SUBSET, STAMP) %>%
filter(SUBSET == 'full') %>%
mutate(STAMP = as_datetime(STAMP)) %>%
arrange(desc(STAMP))
Dataset statistics
df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, SUBSET, USES, USERS) %>%
dplyr::summarise(
USES_TOT = sum(USES),
USERS_TOT = sum(USERS)
)
Degree centrality
Overall
List
df_comp %>%
select(LEMMA, SUBSET, USES, CENT_DEGREE) %>%
filter(SUBSET == 'full') %>%
# filter(USES > 20000) %>%
arrange((CENT_DEGREE))
Plot
plt <- df_comp %>%
select(LEMMA, SUBSET, USES, CENT_DEGREE) %>%
filter(SUBSET == 'full') %>%
arrange((CENT_DEGREE)) %>%
ggplot(., aes(x=CENT_DEGREE, y=reorder(LEMMA, CENT_DEGREE))) +
geom_point() +
scale_x_continuous(trans='log')
ggplotly(plt)
Over time
Across all lemmas

Biggest changes
Good examples:
library(tidyr)
df_comp %>%
select(LEMMA, SUBSET, CENT_DEGREE) %>%
filter(SUBSET %in% c('first', 'last')) %>%
dplyr::group_by(LEMMA) %>%
dplyr::mutate(CENT_DIFF = lag(CENT_DEGREE) - CENT_DEGREE) %>%
drop_na() %>%
select(-SUBSET) %>%
rename(CENT_LAST = CENT_DEGREE) %>%
arrange(desc(CENT_DIFF))
Usage intensity vs. network characteristics
Uses vs. degree centralization
Plot
plt <- df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, CENT_DEGREE, USES, EDGES) %>%
ggplot(., aes(x=CENT_DEGREE, y=USES)) +
geom_text(aes(label=LEMMA)) +
scale_y_continuous(trans='log') +
scale_x_continuous(trans='log') +
geom_smooth(method=lm)
ggplotly(plt)
Correlation
df_corr_full <- df_comp %>%
filter(
SUBSET != 'full',
EDGES >= 100
) %>%
select(-c(LEMMA, SUBSET, NET_WINDOW_DATES, SKIP, STAMP, NROWS))
cor.test(df_corr_full$USES, df_corr_full$CENT_DEGREE)
Pearson's product-moment correlation
data: df_corr_full$USES and df_corr_full$CENT_DEGREE
t = -2.0737, df = 337, p-value = 0.03887
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
-0.216180217 -0.005795898
sample estimates:
cor
-0.1122458
Degree centrality vs. communities
Correlation
df_comp %>%
filter(SUBSET == 'last') %>%
select(CENT_DEGREE, COMMUNITIES) %>%
mutate(COMMUNITIES = as.numeric(COMMUNITIES)) %>%
correlate()
Plot
df_comp %>%
filter(SUBSET == 'last') %>%
select(LEMMA, CENT_DEGREE, COMMUNITIES) %>%
ggplot(., aes(x=CENT_DEGREE, y=as.numeric(COMMUNITIES))) +
geom_text(aes(label=LEMMA)) +
scale_x_continuous(trans='log')
Uses vs. users
Plot
plt <- df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, USES, USERS) %>%
ggplot(., aes(x=USERS, y=USES)) +
geom_text(aes(label=LEMMA)) +
scale_x_continuous(trans='log') +
scale_y_continuous(trans='log') +
geom_smooth(method=lm)
ggplotly(plt)
Correlation
df_comp %>%
filter(SUBSET == 'full') %>%
select(USES, USERS) %>%
correlate()
Coefficient of variation
df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, COEF_VAR) %>%
arrange(desc(COEF_VAR))
COEF_VAR vs. CENT
df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, COEF_VAR, CENT_DEGREE) %>%
ggplot(., aes(y=COEF_VAR, x=CENT_DEGREE)) +
geom_text(aes(label=LEMMA)) +
scale_y_continuous(trans='log')

# geom_smooth(method=lm)
Correlations: EDA
library(Hmisc)
df_corr <- df_comp %>%
# filter(SUBSET == 'last') %>%
select(-c(LEMMA, SUBSET, NET_WINDOW_DATES, SKIP, STAMP, NROWS))
# select(-c(USERS, AGE)) %>%
# mutate(FOCUS = USES) %>%
# focus(FOCUS) %>%
# ggplot(., aes(reorder(rowname, FOCUS), FOCUS)) +
# geom_col() +
# coord_flip()
# rearrange() %>%
# shave() %>%
# rplot()
# network_plot(min_cor=.5) %>%
LS0tCmF1dGhvcjogJ1F1aXJpbiBXw7xyc2NoaW5nZXInCnRpdGxlOiAiU29jaWFsIG5ldHdvcmtzIG9mIGxleGljYWwgaW5ub3ZhdGlvbiIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOiAKICAgIHRvYzogeWVzCi0tLQoKIyBQYWNrYWdlcwoKYGBge3IgaW5jbHVkZT1GQUxTRX0Kc291cmNlKCdzcmMvbG9hZC1kYXRhLlInKQpzb3VyY2UoJ3NyYy9wb3N0cHJvYy5SJykKc291cmNlKCdzcmMvdXNlcy5SJykKc291cmNlKCdzcmMvdXNlcnMuUicpCnNvdXJjZSgnc3JjL3NuYS5SJykKCmxpYnJhcnkoY29ycnIpCmBgYAoKIyBDYXNlIHN0dWRpZXMKCiMjIExvYWQgZGF0YQoKIyMjIEZvciBvbmUgbGVtbWEKCmBgYHtyIGluY2x1ZGU9RkFMU0V9CmNvcnB1cyA8LSAnL1ZvbHVtZXMvcWpkL3R3aW50LycKbGVtbWEgPC0gJ2dob3N0aW5nJwoKdHdlZXRzIDwtIGxvYWRfZGF0YShjb3JwdXMsIGxlbW1hKQp0d2VldHMgPC0gcG9zdHByb2ModHdlZXRzKQpgYGAKCiMjIyBDb21wYXJhdGl2ZSBhbmFseXNlcwoKYGBge3IgaW5jbHVkZT1GQUxTRX0KaWYgKGV4aXN0cygnZGZfY29tcCcpID09IEZBTFNFKSB7CiAgZGZfY29tcCA8LSByZWFkX2Nzdignb3V0L2RmX2NvbXAuY3N2JykKfQpgYGAKCgojIyBDaGVjayB0d2VldHMKCmBgYHtyfQp0d2VldHMgJT4lCiAgc2VsZWN0KHR3ZWV0KSAlPiUKICBzbGljZSguLCBzYW1wbGUoMTpuKCkpKQpgYGAKCgojIyBVc2FnZSBpbnRlbnNpdHkKCmBgYHtyfQp1c2VzIDwtIGdldF91c2VzKHR3ZWV0cykKdXNlc190b3QgPC0gZ2V0X3VzZXNfdG90KHVzZXMpCmFnZSA9IGdldF9hZ2UodXNlcykKY29lZl92YXIgPC0gZ2V0X2NvZWZfdmFyKHVzZXMpCm1lYW5fZGF0ZSA8LSBnZXRfbWVhbl9kYXRlKHVzZXMpCm1heF9kYXRlIDwtIGdldF9tYXhfZGF0ZSh1c2VzKQp1c2VzX21vbnRoIDwtIGNvbnZfdXNlc19tb250aCh1c2VzKQp1c2VzX3BsdCA8LSBwbHRfdXNlcyh1c2VzX21vbnRoLCBsZW1tYSwgbWVhbl9kYXRlLCBtYXhfZGF0ZSkKdXNlc19wbHQKYGBgCgoKIyMjIEFkdmFuY2VkIChTLWN1cnZlKQoKQ2FuZGlkYXRlcwoKKiBnaG9zdGluZwoqIGRlZXAgbGVhcm5pbmcKKiBhcnRpZmljaWFsIGludGVsbGlnZW5jZQoqIGNvLXdvcmtpbmcKKiBjbGltYXRlIGVtZXJnZW5jeQoKCiMjIERlZ3JlZSBjZW50cmFsaXphdGlvbgoKIyMjIERpYWNocm9uaWMKCmBgYHtyfQpkZl9jb21wICU+JQogIGZpbHRlcihMRU1NQSA9PWxlbW1hKSAlPiUKICBzZWxlY3QoU1VCU0VULCBDRU5UX0RFR1JFRSkgJT4lCiAgbXV0YXRlKFNVQlNFVCA9IGZhY3RvcihTVUJTRVQsIGxldmVscz1jKCdmaXJzdCcsICdtZWFuJywgJ21heCcsICdsYXN0JywgJ2Z1bGwnKSkpICU+JQogIGdncGxvdCguLCBhZXMoeD1TVUJTRVQsIHk9Q0VOVF9ERUdSRUUpKSArCiAgICBnZW9tX3BvaW50KCkKYGBgCgoKCgojIENvbXBhcmF0aXZlIGFuYWx5c2VzCgojIyBQcm9jZXNzaW5nIHN0YXR1cwoKIyMjIExlbW1hIGxpc3QKCmBgYHtyfQpkZl9jb21wICU+JQogIHNlbGVjdChMRU1NQSwgU1VCU0VULCBTVEFNUCkgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogIG11dGF0ZShTVEFNUCA9IGFzX2RhdGV0aW1lKFNUQU1QKSkgJT4lCiAgYXJyYW5nZShkZXNjKFNUQU1QKSkKYGBgCgoKIyMjIERhdGFzZXQgc3RhdGlzdGljcwoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogIHNlbGVjdChMRU1NQSwgU1VCU0VULCBVU0VTLCBVU0VSUykgJT4lCiAgZHBseXI6OnN1bW1hcmlzZSgKICAgIFVTRVNfVE9UID0gc3VtKFVTRVMpLAogICAgVVNFUlNfVE9UID0gc3VtKFVTRVJTKQogICAgKQpgYGAKCgoKIyMgRGVncmVlIGNlbnRyYWxpdHkKCiMjIyBPdmVyYWxsCgojIyMjIExpc3QKCmBgYHtyfQpkZl9jb21wICU+JQogIHNlbGVjdChMRU1NQSwgU1VCU0VULCBVU0VTLCBDRU5UX0RFR1JFRSkgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogICMgZmlsdGVyKFVTRVMgPiAyMDAwMCkgJT4lCiAgYXJyYW5nZSgoQ0VOVF9ERUdSRUUpKQpgYGAKCgojIyMjIFBsb3QKCmBgYHtyfQpwbHQgPC0gZGZfY29tcCAlPiUKICBzZWxlY3QoTEVNTUEsIFNVQlNFVCwgVVNFUywgQ0VOVF9ERUdSRUUpICU+JQogIGZpbHRlcihTVUJTRVQgPT0gJ2Z1bGwnKSAlPiUKICBhcnJhbmdlKChDRU5UX0RFR1JFRSkpICU+JQogIGdncGxvdCguLCBhZXMoeD1DRU5UX0RFR1JFRSwgeT1yZW9yZGVyKExFTU1BLCBDRU5UX0RFR1JFRSkpKSArCiAgICBnZW9tX3BvaW50KCkgKwogICAgc2NhbGVfeF9jb250aW51b3VzKHRyYW5zPSdsb2cnKQpnZ3Bsb3RseShwbHQpCmBgYAoKCiMjIyBPdmVyIHRpbWUKCiMjIyMgQWNyb3NzIGFsbCBsZW1tYXMKCmBgYHtyfQpkZl9jb21wICU+JQogIGZpbHRlcihTVUJTRVQgIT0gJ2Z1bGwnKSAlPiUKICBncm91cF9ieShTVUJTRVQpICU+JQogIHN1bW1hcml6ZShDRU5UX0FWRyA9IG1lYW4oQ0VOVF9ERUdSRUUpKSAlPiUKICBtdXRhdGUoU1VCU0VUID0gZmFjdG9yKFNVQlNFVCwgbGV2ZWxzPWMoJ2ZpcnN0JywgJ21lYW4nLCAnbWF4JywgJ2xhc3QnKSkpICU+JQogIGdncGxvdCguLCBhZXMoeD1TVUJTRVQsIHk9Q0VOVF9BVkcsIGdyb3VwPTEpKSArCiAgICBnZW9tX3BvaW50KCkgKwogICAgZ2VvbV9saW5lKCkKYGBgCgoKIyMjIyBCaWdnZXN0IGNoYW5nZXMKCkdvb2QgZXhhbXBsZXM6CgoqIF9ibG9ja2NoYWluXwoKYGBge3J9CmxpYnJhcnkodGlkeXIpCgpkZl9jb21wICU+JQogIHNlbGVjdChMRU1NQSwgU1VCU0VULCBDRU5UX0RFR1JFRSkgJT4lCiAgZmlsdGVyKFNVQlNFVCAlaW4lIGMoJ2ZpcnN0JywgJ2xhc3QnKSkgJT4lCiAgZHBseXI6Omdyb3VwX2J5KExFTU1BKSAlPiUKICBkcGx5cjo6bXV0YXRlKENFTlRfRElGRiA9IGxhZyhDRU5UX0RFR1JFRSkgLSBDRU5UX0RFR1JFRSkgJT4lCiAgZHJvcF9uYSgpICU+JQogIHNlbGVjdCgtU1VCU0VUKSAlPiUKICByZW5hbWUoQ0VOVF9MQVNUID0gQ0VOVF9ERUdSRUUpICU+JQogIGFycmFuZ2UoZGVzYyhDRU5UX0RJRkYpKQpgYGAKCgojIFVzYWdlIGludGVuc2l0eSB2cy4gbmV0d29yayBjaGFyYWN0ZXJpc3RpY3MKCiMjIFVzZXMgdnMuIGRlZ3JlZSBjZW50cmFsaXphdGlvbgoKIyMjIFBsb3QKCmBgYHtyfQpwbHQgPC0gZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgc2VsZWN0KExFTU1BLCBDRU5UX0RFR1JFRSwgVVNFUywgRURHRVMpICU+JQogIGdncGxvdCguLCBhZXMoeD1DRU5UX0RFR1JFRSwgeT1VU0VTKSkgKwogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbD1MRU1NQSkpICsgCiAgICBzY2FsZV95X2NvbnRpbnVvdXModHJhbnM9J2xvZycpICsKICAgIHNjYWxlX3hfY29udGludW91cyh0cmFucz0nbG9nJykgKwogICAgZ2VvbV9zbW9vdGgobWV0aG9kPWxtKQpnZ3Bsb3RseShwbHQpCmBgYAoKIyMjIENvcnJlbGF0aW9uCgpgYGB7cn0KZGZfY29ycl9mdWxsIDwtIGRmX2NvbXAgJT4lCiAgZmlsdGVyKAogICAgU1VCU0VUICE9ICdmdWxsJywKICAgIEVER0VTID49IDEwMAogICAgKSAlPiUKICBzZWxlY3QoLWMoTEVNTUEsIFNVQlNFVCwgTkVUX1dJTkRPV19EQVRFUywgU0tJUCwgU1RBTVAsIE5ST1dTKSkKICAKY29yLnRlc3QoZGZfY29ycl9mdWxsJFVTRVMsIGRmX2NvcnJfZnVsbCRDRU5UX0RFR1JFRSkKYGBgCgoKIyMgRGVncmVlIGNlbnRyYWxpdHkgdnMuIGNvbW11bml0aWVzCgojIyMgQ29ycmVsYXRpb24KCmBgYHtyfQpkZl9jb21wICU+JQogIGZpbHRlcihTVUJTRVQgPT0gJ2xhc3QnKSAlPiUKICBzZWxlY3QoQ0VOVF9ERUdSRUUsIENPTU1VTklUSUVTKSAlPiUKICBtdXRhdGUoQ09NTVVOSVRJRVMgPSBhcy5udW1lcmljKENPTU1VTklUSUVTKSkgJT4lCiAgY29ycmVsYXRlKCkKYGBgCgoKIyMjIFBsb3QKCmBgYHtyfQpkZl9jb21wICU+JQogIGZpbHRlcihTVUJTRVQgPT0gJ2xhc3QnKSAlPiUKICBzZWxlY3QoTEVNTUEsIENFTlRfREVHUkVFLCBDT01NVU5JVElFUykgJT4lCiAgZ2dwbG90KC4sIGFlcyh4PUNFTlRfREVHUkVFLCB5PWFzLm51bWVyaWMoQ09NTVVOSVRJRVMpKSkgKwogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbD1MRU1NQSkpICsKICAgIHNjYWxlX3hfY29udGludW91cyh0cmFucz0nbG9nJykKYGBgCgoKCiMjIFVzZXMgdnMuIHVzZXJzCgojIyMgUGxvdAoKYGBge3J9CnBsdCA8LSBkZl9jb21wICU+JQogIGZpbHRlcihTVUJTRVQgPT0gJ2Z1bGwnKSAlPiUKICBzZWxlY3QoTEVNTUEsIFVTRVMsIFVTRVJTKSAlPiUKICBnZ3Bsb3QoLiwgYWVzKHg9VVNFUlMsIHk9VVNFUykpICsKICAgIGdlb21fdGV4dChhZXMobGFiZWw9TEVNTUEpKSArCiAgICBzY2FsZV94X2NvbnRpbnVvdXModHJhbnM9J2xvZycpICsKICAgIHNjYWxlX3lfY29udGludW91cyh0cmFucz0nbG9nJykgKwogICAgZ2VvbV9zbW9vdGgobWV0aG9kPWxtKQpnZ3Bsb3RseShwbHQpCmBgYAoKIyMjIENvcnJlbGF0aW9uCgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgc2VsZWN0KFVTRVMsIFVTRVJTKSAlPiUKICBjb3JyZWxhdGUoKQpgYGAKCgojIyBDb2VmZmljaWVudCBvZiB2YXJpYXRpb24KCmBgYHtyfQpkZl9jb21wICU+JQogIGZpbHRlcihTVUJTRVQgPT0gJ2Z1bGwnKSAlPiUKICBzZWxlY3QoTEVNTUEsIENPRUZfVkFSKSAlPiUKICBhcnJhbmdlKGRlc2MoQ09FRl9WQVIpKQpgYGAKCgojIENPRUZfVkFSIHZzLiBDRU5UCgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgc2VsZWN0KExFTU1BLCBDT0VGX1ZBUiwgQ0VOVF9ERUdSRUUpICU+JQogIGdncGxvdCguLCBhZXMoeT1DT0VGX1ZBUiwgeD1DRU5UX0RFR1JFRSkpICsKICAgIGdlb21fdGV4dChhZXMobGFiZWw9TEVNTUEpKSArCiAgICBzY2FsZV95X2NvbnRpbnVvdXModHJhbnM9J2xvZycpCmBgYAoKCiMgQ29ycmVsYXRpb25zOiBFREEKCmBgYHtyfQpsaWJyYXJ5KEhtaXNjKQoKZGZfY29yciA8LSBkZl9jb21wICU+JQogICMgZmlsdGVyKFNVQlNFVCA9PSAnbGFzdCcpICU+JQogIHNlbGVjdCgtYyhMRU1NQSwgU1VCU0VULCBORVRfV0lORE9XX0RBVEVTLCBTS0lQLCBTVEFNUCwgTlJPV1MpKQogICMgc2VsZWN0KC1jKFVTRVJTLCBBR0UpKSAlPiUKICAjIG11dGF0ZShGT0NVUyA9IFVTRVMpICU+JQogICMgZm9jdXMoRk9DVVMpICU+JQogICMgZ2dwbG90KC4sIGFlcyhyZW9yZGVyKHJvd25hbWUsIEZPQ1VTKSwgRk9DVVMpKSArCiAgICAjIGdlb21fY29sKCkgKwogICAgIyBjb29yZF9mbGlwKCkKICAjIHJlYXJyYW5nZSgpICU+JQogICMgc2hhdmUoKSAlPiUKICAjIHJwbG90KCkKICAjIG5ldHdvcmtfcGxvdChtaW5fY29yPS41KSAlPiUKCiAgCmBgYAoKCiAg